     C                   BITON     '1'           IL_VAR            4
     C                   EVAL      IL_VAR='1000'
     C     IL_VAR        DSPLY